home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / wmsPageBanner.inc < prev    next >
Encoding:
Text File  |  2003-02-21  |  25.7 KB  |  646 lines
  1. <%
  2. '+-------------------------------------------------------------------------
  3. '
  4. '  Microsoft Windows Media
  5. '  Copyright (C) Microsoft Corporation. All rights reserved.
  6. '
  7. '  File:       pagebanner.inc
  8. '
  9. '  Contents:    Responsible for drawing the page banner of each ASP Admin page
  10. '
  11. '  Dependencies: locStrings.inc, wmsConstants.inc, toolbar.inc
  12. '
  13. '--------------------------------------------------------------------------
  14. Dim g_strNowPlayingPath
  15. Dim g_bBroadcastStreamingHasEnded
  16.  
  17. g_strNowPlayingPath = ""
  18. g_bBroadcastStreamingHasEnded = FALSE
  19.  
  20. '/////////////////////////////////////////////////////////////////////////////////////////
  21. sub DrawPPNameBanner( strTabName )
  22. Dim dwPPType
  23. Dim strAdjustedName
  24. Dim bAllowingConnections
  25. Dim bBroadcastPubPoint
  26. Dim dwPPStatus 
  27. Dim strStatusMsg
  28. Dim bInError
  29. Dim bIsPush
  30. Dim bDrawWarning
  31. Dim bBroadcastPPStarted
  32. Dim strPPPath
  33.  
  34. on error resume next
  35. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  36.     Response.Redirect( "include/server_stopped.asp?server=" & qs("server") )
  37. end if
  38.  
  39. dwPPType = g_objPubPoint.Type
  40. strAdjustedName = Server.HTMLEncode( ConvertPPName( g_strPubPointName, dwPPType ) )
  41. bAllowingConnections = g_objPubPoint.AllowClientsToConnect
  42. dwPPStatus = 0
  43. strStatusMsg = ""
  44. bInError = FALSE
  45. bIsPush = FALSE
  46. bDrawWarning = FALSE
  47. bBroadcastPPStarted = FALSE
  48.  
  49. bBroadcastPubPoint = FALSE
  50. dwPPStatus = g_objPubPoint.Status
  51. bInError = CBool( ( WMS_PUBLISHING_POINT_ERROR_CRITICAL and dwPPStatus ) ) or ( WMS_PUBLISHING_POINT_ERROR and dwPPStatus )
  52. if WMS_PUBLISHING_POINT_TYPE_BROADCAST = dwPPType then
  53.     bBroadcastPubPoint = TRUE
  54.     dwPPStatus = g_objPubPoint.BroadcastStatus
  55.     bBroadcastPPStarted = ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED and dwPPStatus ) )
  56.     strPPPath = g_objPubPoint.Path
  57.     if( 0 = strcomp( Left( strPPPath, 5 ), "push:" ) ) then
  58.         bIsPush = TRUE
  59.     end if
  60. end if
  61.  
  62. if( bInError ) then
  63.     strStatusMsg = L_PPINERROR_TEXT
  64. elseif bBroadcastPubPoint then
  65.     if bBroadcastPPStarted then
  66.         if bAllowingConnections then
  67.  
  68.             Dim objSharedPlaylist
  69.             Dim objCurrentEntry
  70.             Dim objActiveMedia
  71.             Dim bEndOfStream
  72.             Dim strPPSrc
  73.             Dim bPlaylist
  74.             Dim enumFileType
  75.  
  76.             bEndOfStream = FALSE
  77.             bPlaylist = FALSE
  78.  
  79.             err.clear
  80.             if( ( not bIsPush ) and ( 0 = err.number ) ) then
  81.                 if( 0 = Len( strPPPath ) ) then
  82.                     strPPPath = g_objPubPoint.Path
  83.                 end if
  84.                 on error resume next
  85.                 if( ( 0 = StrComp( Left( strPPPath, 6 ), "mcast:" ) ) or _
  86.                     ( 0 = StrComp( Right( strPPPath, 4 ), ".nsc" ) ) ) then
  87.                     enumFileType = WMS_FILE_STREAM_FORMAT
  88.                 else
  89.                     enumFileType = g_objServer.FileType( strPPPath )
  90.                 end if
  91.                 
  92.                 if( ( 0 = err.Number ) and ( WMS_FILE_DIRECTORY = enumFileType ) or ( WMS_FILE_PLAYLIST = enumFileType ) )then        
  93.                     Set objSharedPlaylist = g_objPubPoint.SharedPlaylist
  94.                     if( IsEmpty( objSharedPlaylist ) or ( 0 <> err.number ) )then
  95.                         err.clear
  96.                         bEndOfStream = TRUE
  97.                     else
  98.                         on error resume next
  99.                         Set objCurrentEntry = objSharedPlaylist.CurrentPlaylistEntry
  100.                         strRuntimeID = objCurrentEntry.GetAttribute( "uniqueRuntimeID" )
  101.                         if( 0 <> err.number )then
  102.                             err.clear
  103.                             bEndOfStream = TRUE
  104.                         else
  105.                             Set objActiveMedia = objSharedPlaylist.CurrentMediaInformation
  106.                             if( 0 <> err.number )then
  107.                                 err.clear
  108.                                 bEndOfStream = TRUE
  109.                             else
  110.                                 g_strNowPlayingPath = objActiveMedia.GetProperty( "WMS_CONTAINER_LOG_PHYSICAL_URL","" )
  111.                                 if( ( 0 <> err.number ) or ( 0 = Len( g_strNowPlayingPath ) ) )then
  112.                                     err.clear
  113.                                     bEndOfStream = TRUE
  114.                                 end if
  115.                             end if
  116.                         end if
  117.                     end if
  118.                 end if
  119.             end if
  120.  
  121.             if( bEndOfStream ) then
  122.                 g_bBroadcastStreamingHasEnded = TRUE
  123.                 strStatusMsg = L_STARTEDBUTENDED_TEXT
  124.             else
  125.                 if WMS_BROADCAST_PUBLISHING_POINT_ARCHIVING and dwPPStatus then
  126.                     strStatusMsg = L_PPISSTARTEDARCH_TEXT
  127.                 else
  128.                     strStatusMsg = L_PPISSTARTED_TEXT
  129.                 end if
  130.             end if
  131.         else
  132.             if WMS_BROADCAST_PUBLISHING_POINT_ARCHIVING and dwPPStatus then
  133.                 strStatusMsg = L_PPISSTARTEDDENYARCH_TEXT
  134.             else
  135.                 strStatusMsg = L_STARTEDBUTDENYING_TEXT
  136.             end if
  137.         end if
  138.     else
  139.         strStatusMsg = L_PPISSTOPPED_TEXT
  140.     end if
  141. else
  142.     if bAllowingConnections then
  143.         strStatusMsg = L_STARTEDANDALLOWING_TEXT
  144.     else
  145.         strStatusMsg = L_DENYING_TEXT
  146.         bDrawWarning = TRUE
  147.     end if
  148. end if
  149.  
  150. %>
  151. <table width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %>>
  152. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  153.     <tr>
  154.         <td>
  155.             <table width="100%" cellspacing="4" cellpadding="1" border="0">
  156.                 <tr>
  157.                     <td width="4">
  158.                          
  159.                     </td>
  160.                     <td valign="middle" align="left" width="32">
  161.                         <% 
  162.                 if bBroadcastPubPoint then
  163.                     if( bIsPush ) then
  164.                         if( FALSE = bAllowingConnections ) then %>
  165.                         <img src="<%= IMAGE_PP_BCASTDENY_PUSH %>" border="0" height="32" width="32"><%
  166.                         elseif( bInError ) then %>
  167.                         <img src="<%= IMAGE_PP_BCASTERR_PUSH %>" border="0" height="32" width="32" ><%
  168.                         elseif( FALSE = bBroadcastPPStarted ) then %>
  169.                         <img src="<%= IMAGE_PP_BCASTSTOP_PUSH %>" border="0" height="32" width="32"><%
  170.                         else %>
  171.                         <img src="<%= IMAGE_PP_BROADCAST_PUSH %>" border="0" height="32" width="32"><%
  172.                         end if
  173.                     elseif( bInError ) then
  174.                         %><img src="<%= IMAGE_PP_BROADCAST_ERR %>" border="0" height="32" width="32"><%
  175.                     else
  176.                         if( bBroadcastPPStarted ) then
  177. '                            ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED and dwPPStatus ) ) or _
  178. '                                ( 0 <> ( WMS_BROADCAST_PUBLISHING_POINT_STARTED_WITHOUT_DATA and dwPPStatus ) ) ) then
  179.                             if( g_bBroadcastStreamingHasEnded ) then
  180.                     %><img src="<%= IMAGE_PP_BROADCAST %><%' IMAGE_PP_BROADCASTENDED %>" border="0" height="32" width="32"><%
  181.                             elseif( bAllowingConnections ) then
  182.                     %><img src="<%= IMAGE_PP_BROADCAST %>" border="0" height="32" width="32"><%
  183.                             else
  184.                     %><img src="<%= IMAGE_PP_BROADCAST_DENY %>" border="0" height="32" width="32"><%
  185.                             end if
  186.                         else
  187.                     %><img src="<%= IMAGE_PP_BCASTSTOPPED %>" border="0" height="32" width="32"><%
  188.                         end if
  189.                     end if
  190.                 else  ' On-Demand publishing point
  191.                     if( bInError ) then
  192.                         %><img src="<%= IMAGE_PP_ONDEMAND_ERR %>" border="0" height="32" width="32"><%
  193.                     else
  194.                         if ( bAllowingConnections ) then
  195.                     %><img src="<%= IMAGE_PP_ONDEMAND %>" border="0" height="32" width="32"><%
  196.                         else
  197.                     %><img src="<%= IMAGE_PP_ONDEMAND_DENY %>" border="0" height="32" width="32"><%
  198.                         end if
  199.                     end if
  200.                 end if
  201.                 %>
  202.                     </td>
  203.                     <td width="4">
  204.                          
  205.                     </td>
  206.                     <td width="100%" align="left">
  207.                         <table width="100%" cellspacing="0" cellpadding="0" border="0">
  208.                             <tr>
  209.                                 <% 'pp name & type %>
  210.                                 <td valign="bottom" align="left">
  211.                                     <span class="bannerName">
  212.                                         <% 
  213.                             
  214.                             if( bBroadcastPubPoint ) then
  215.                                 dwPPType = WMS_PUBLISHING_POINT_TYPE_BROADCAST
  216.                             else
  217.                                 dwPPType = WMS_PUBLISHING_POINT_TYPE_ON_DEMAND
  218.                             end if
  219.                             
  220.                             Response.Write( Server.HTMLEncode( ConvertPPName( g_strPubPointName, dwPPType ) ) )
  221.                             if WMS_PUBLISHING_POINT_TYPE_ON_DEMAND = dwPPType then
  222.                                 Response.Write( "  " & Server.HTMLEncode( L_ONDEMANDINPARENS_TEXT ) )
  223.                             elseif WMS_PUBLISHING_POINT_TYPE_BROADCAST = dwPPType then
  224.                                 if( bIsPush ) then
  225.                                     Response.Write( "  " & Server.HTMLEncode( L_BROADCASTPUSHINPARENS_TEXT ) )
  226.                                 else
  227.                                     Response.Write( "  " & Server.HTMLEncode( L_BROADCASTINPARENS_TEXT ) )
  228.                                 end if
  229.                             end if
  230.                             %>
  231.                                     </span>
  232.                                 </td>
  233.                                 <td valign="top" align="right">
  234.                                      
  235.                                 </td>
  236.                             </tr>
  237.                             <tr>
  238.                                 <% 'pp status %>
  239.                                 <td valign="top" align="left">
  240.                                     <span>
  241.                                         <%= Server.HTMLEncode( strStatusMsg ) %>
  242.                                     </span>
  243.                                 </td>
  244.                             </tr>
  245.                         </table>
  246.                     </td>
  247.                 </tr>
  248.             </table>
  249.         </td>
  250.     </tr>
  251.     <tr valign="bottom">
  252.         <td>
  253.             <table width="100%" valign="top" cellspacing="0" cellpadding="0" border="0">
  254.             <tr>
  255.                 <td>
  256.                     <% DrawPubPointTabs strTabName %>
  257.                 </td>
  258.             <%
  259. if( FALSE = g_bSecureConnection ) then
  260. %>
  261.                 <script language="JavaScript">
  262.                 <!--
  263.                     ShowHideSecureWarning( "img/Not_secure_32.gif" );
  264.                 -->
  265.                 </script>
  266.             <%
  267. end if
  268. %>
  269.             </tr>
  270.             </table>
  271.         </td>
  272.     </tr>
  273. </table>
  274. <!-- END BANNER -->
  275.             <%
  276. end Sub
  277.  
  278.  
  279. '/////////////////////////////////////////////////////////////////////////////////////////
  280. sub DrawCacheProxyPPNameBanner( strTabName )
  281. Dim dwPPType
  282. Dim strAdjustedName
  283. Dim bAllowingConnections
  284. Dim bBroadcastPubPoint
  285. Dim dwPPStatus 
  286. Dim strStatusMsg
  287. Dim bInError
  288. Dim bDrawWarning
  289.  
  290. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  291.     Response.Redirect( "include/server_stopped.asp?server=" & qs("server") )
  292. end if
  293.  
  294. dwPPType = g_objPubPoint.Type
  295. strAdjustedName = Server.HTMLEncode( ConvertPPName( g_strPubPointName, dwPPType ) )
  296. bAllowingConnections = g_objPubPoint.AllowClientsToConnect
  297. dwPPStatus = 0
  298. strStatusMsg = ""
  299. bInError = FALSE
  300. bDrawWarning = FALSE
  301.  
  302. bBroadcastPubPoint = FALSE
  303. dwPPStatus = g_objPubPoint.Status
  304. bInError = CBool( ( WMS_PUBLISHING_POINT_ERROR_CRITICAL and dwPPStatus ) )' or ( WMS_PUBLISHING_POINT_ERROR and dwPPStatus ) 
  305. bBroadcastPubPoint = ( WMS_PUBLISHING_POINT_TYPE_CACHE_PROXY_BROADCAST = dwPPType )
  306.  
  307. if( bInError ) then
  308.     strStatusMsg = L_PPINERROR_TEXT
  309. elseif bAllowingConnections then
  310.     strStatusMsg = L_ALLOWING_TEXT
  311. else
  312.     strStatusMsg = L_DENYING_TEXT
  313.     bDrawWarning = TRUE
  314. end if
  315.  
  316. %>
  317. <table width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %>>
  318. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  319.     <tr>
  320.         <td>
  321.             <table width="100%" cellspacing="4" cellpadding="1" border="0">
  322.                 <tr>
  323.                     <td width="4">
  324.                          
  325.                     </td>
  326.                     <td valign="middle" align="left" width="32">
  327.                         <% 
  328.                 if bBroadcastPubPoint then
  329.                     if( bInError ) then
  330.                         %><img src="<%= IMAGE_PP_BROADCAST_ERR %>" border="0" height="32" width="32"><%
  331.                     else
  332.                         if( bAllowingConnections ) then
  333.                         %><img src="<%= IMAGE_PP_BROADCAST %>" border="0" height="32" width="32"><%
  334.                         else
  335.                         %><img src="<%= IMAGE_PP_BROADCAST_DENY %>" border="0" height="32" width="32"><%
  336.                         end if
  337.                     end if
  338.                 else  ' On-Demand publishing point
  339.                     if( bInError ) then
  340.                         %><img src="<%= IMAGE_PP_ONDEMAND_ERR %>" border="0" height="32" width="32"><%
  341.                     else
  342.                         if ( bAllowingConnections ) then
  343.                     %><img src="<%= IMAGE_PP_ONDEMAND %>" border="0" height="32" width="32"><%
  344.                         else
  345.                     %><img src="<%= IMAGE_PP_ONDEMAND_DENY %>" border="0" height="32" width="32"><%
  346.                         end if
  347.                     end if
  348.                 end if
  349.                 %>
  350.                     </td>
  351.                     <td width="4">
  352.                          
  353.                     </td>
  354.                     <td width="100%" align="left">
  355.                         <table width="100%" cellspacing="0" cellpadding="0" border="0">
  356.                             <tr>
  357.                                 <% 'pp name & type %>
  358.                                 <td valign="bottom" align="left">
  359.                                     <span class="bannerName">
  360.                                         <% 
  361.                             
  362.                             if( bBroadcastPubPoint ) then
  363.                                 dwPPType = WMS_PUBLISHING_POINT_TYPE_BROADCAST
  364.                             else
  365.                                 dwPPType = WMS_PUBLISHING_POINT_TYPE_ON_DEMAND
  366.                             end if
  367.                             
  368.                             Response.Write( Server.HTMLEncode( ConvertPPName( g_strPubPointName, dwPPType ) ) )
  369.                             %>
  370.                                     </span>
  371.                                 </td>
  372.                                 <td valign="top" align="right">
  373.                                      
  374.                                 </td>
  375.                             </tr>
  376.                             <tr>
  377.                                 <% 'pp status %>
  378.                                 <td valign="top" align="left">
  379.                                     <span>
  380.                                         <%= Server.HTMLEncode( strStatusMsg ) %>
  381.                                     </span>
  382.                                 </td>
  383.                             </tr>
  384.                         </table>
  385.                     </td>
  386.                 </tr>
  387.             </table>
  388.         </td>
  389.     </tr>
  390.     <tr valign="bottom">
  391.         <td>
  392.             <table width="100%" valign="top" cellspacing="0" cellpadding="0" border="0">
  393.             <tr>
  394.                 <td>
  395.                     <% DrawCacheProxyPubPointTabs strTabName %>
  396.                 </td>
  397.             <%
  398. if( FALSE = g_bSecureConnection ) then
  399. %>
  400.                 <script language="JavaScript">
  401.                 <!--
  402.                     ShowHideSecureWarning( "img/Not_secure_32.gif" );
  403.                 -->
  404.                 </script>
  405.                     <%
  406. end if
  407. %>
  408.             </tr>
  409.             </table>
  410.         </td>
  411.     </tr>
  412. </table>
  413. <!-- END BANNER -->
  414.             <%
  415. end Sub
  416.  
  417.  
  418. '/////////////////////////////////////////////////////////////////////////////////////////
  419. Sub DrawServerNameBanner( strTabName )
  420. Dim szCurrentServerName
  421. Dim bAllowNewConnections
  422. Dim strServerStatus
  423. Dim dwServerStatus
  424.  
  425. if( WMS_SERVICE_STARTED <> g_dwConnectionFailureCode ) then
  426.     Response.Redirect( "include/server_stopped.asp?server=" & qs("server") )
  427. end if
  428.  
  429. szCurrentServerName = g_objServer.Name
  430. dwServerStatus = g_objServer.Status
  431. bAllowNewConnections = g_objServer.AllowClientsToConnect
  432. if( bAllowNewConnections ) then 
  433.     strServerStatus = L_SERVICESTARTED_TEXT
  434. else
  435.     strServerStatus = L_SERVERDENYINGNEWCONNECTIONS_TEXT
  436. end if
  437. on error resume next
  438. %>
  439. <!-- START BANNER -->
  440. <table valign="top" width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %>>
  441. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  442.     <tr>
  443.         <td>
  444.             <table valign="top" width="100%" hspace="0" vspace="0" cellspacing="4" cellpadding="1" border="0" style="border-collapse: collapse" margin-top="0" margin-bottom="0">
  445.                 <tr>
  446.                     <td width="4">
  447.                          
  448.                     </td>
  449.                     <td valign="middle" align="left" width="32">
  450.                         <% if WMS_SERVER_ERROR_CRITICAL and dwServerStatus then %>
  451.                         <img src="<%= IMAGE_SERVERERR %>" border="0" height="32" width="32">
  452.                         <% elseif ( FALSE = bAllowNewConnections ) then %>
  453.                         <img src="<%= IMAGE_SERVERDENY %>" border="0" height="32" width="32">
  454.                         <% else %>
  455.                         <img src="<%= IMAGE_SERVER %>" border="0" height="32" width="32">
  456.                         <% end if %>
  457.                     </td>
  458.                     <td width="4">
  459.                          
  460.                     </td>
  461.                     <td align="left" width="100%">
  462.                         <table width="100%" cellspacing="0" cellpadding="0" border="0">
  463.                             <tr>
  464.                                 <% 'server name %>
  465.                                 <td valign="bottom" align="left">
  466.                                     <span class="bannerName" nowrap>
  467.                                         <%= Server.HTMLEncode( szCurrentServerName ) & L_DASHSERVER_TEXT %>
  468.                                     </span>
  469.                                 </td>
  470.                                 <td valign="top" align="right">
  471.                                      
  472.                                 </td>
  473.                             </tr>
  474.                             <tr>
  475.                                 <% 'server status %>
  476.                                 <td valign="top" align="left">
  477.                                     <span>
  478.                                         <% if FALSE then
  479.                                         %><img src="img\MsgBoxAlert_Warning_16.gif" valign="bottom" border="0" height="16" width="16"><%
  480.                                            end if %><%= Server.HTMLEncode( strServerStatus ) %>
  481.                                     </span>
  482.                                 </td>
  483.                             </tr>
  484.                         </table>
  485.                     </td>
  486.                 </tr>
  487.             </table>
  488.         </td>
  489.     </tr>
  490.     <tr valign="bottom">
  491.         <td>
  492.             <table width="100%" valign="top" cellspacing="0" cellpadding="0" border="0">
  493.             <tr>
  494.                 <td>
  495.                     <% DrawServerTabs strTabName %>
  496.                 </td>
  497.             <%
  498. if( FALSE = g_bSecureConnection ) then
  499. %>
  500.                 <script language="JavaScript">
  501.                 <!--
  502.                     ShowHideSecureWarning( "img/Not_secure_32.gif" );
  503.                 -->
  504.                 </script>
  505.                     <%
  506. end if
  507. %>
  508.             </tr>
  509.             </table>
  510.         </td>
  511.     </tr>
  512. </table>
  513. <!-- END BANNER -->
  514. <%
  515. end Sub
  516.  
  517.  
  518. '/////////////////////////////////////////////////////////////////////////////////////////
  519. sub DrawPPStatus( strPPStatusText, bDrawWarning )
  520. %>
  521. <table valign="top" width="100%" height="85" cellspacing="0" cellpadding="0" border="0" class="bannerName" <% if brMSIE <> g_dwBrowserType then %>bgproperties="fixed" bgcolor="#FFFFFF" background="img/gradient_tabview.png"<% end if %>>
  522. <% if brMSIE = g_dwBrowserType then %><img height="85" width="100%" src="img/gradient_tabview.png" style="position:absolute;top=0;left=0;z-index=-1"><% end if %>
  523.     <tr>
  524.         <td>
  525.             <table valign="top" width="80%" hspace="0" vspace="0" cellspacing="4" cellpadding="1" border="0" style="border-collapse:collapse" margin-top="0" margin-bottom="0">
  526.                 <tr>
  527.                     <td>
  528.                 <tr>
  529.                     <td class="bannerName" nowrap>
  530.                         <%
  531.                         if TRUE = bDrawWarning then
  532.                         %>
  533.                         <img valign="center" src="img/MsgBoxAlert_Warning_16.gif" border="0" height="16" width="16"> <%
  534.                         end if
  535.                     %><%= Server.HTMLEncode( strPPStatusText ) %>
  536.                     </td>
  537.                 </tr>
  538.         </td>
  539.     </tr>
  540. </table>
  541. </td> </tr> </table>
  542. <%
  543. end sub
  544.  
  545.  
  546. '/////////////////////////////////////////////////////////////////////////////////////////
  547. sub DrawServerStatus( strServerStatusText, bDrawWarning )
  548. %>
  549. <table valign="top" width="100%" cellspacing="0" cellpadding="0" border="0" class="bannerTable">
  550.     <tr>
  551.         <td width="10">
  552.              
  553.         </td>
  554.         <td>
  555.             <table cellspacing="1" cellpadding="0" border="0">
  556.                 <tr>
  557.                     <td>
  558.                 <tr>
  559.                     <td nowrap>
  560.                         <%
  561.                         if TRUE = bDrawWarning then
  562.                         %>
  563.                         <img valign="center" src="img\MsgBoxAlert_Warning_16.gif" border="0" height="16" width="16"> <%
  564.                         end if
  565.                     %><%= Server.HTMLEncode( strServerStatusText ) %>
  566.                     </td>
  567.                 </tr>
  568.         </td>
  569.     </tr>
  570. </table>
  571. </td> </tr> </table>
  572. <%
  573. End Sub
  574.  
  575. '/////////////////////////////////////////////////////////////////////////////////////////
  576. Sub DrawPluginBanner
  577. %>
  578. <table valign="top" width="100%" class="pluginheader" bgcolor="#ffffff" height="90" cellspacing="0" cellpadding="0" border="0">
  579.     <tr>
  580.         <td colspan="2" class="pluginheadertext" nowrap>
  581.             <%= Server.HTMLEncode( g_strServerName ) %>
  582.             <% if ( "" <> g_strPubPointName ) and ( 0 < Len( g_strPubPointName ) ) then Response.Write( " (" & Server.HTMLEncode( ConvertPPName( g_strPubPointName, -1 ) ) ) & ")" end if %>
  583.         </td>
  584.     </tr>
  585.     <tr valign="top">
  586.         <td class="pluginheadertext" nowrap>
  587.             <%= Server.HTMLEncode( g_strPluginName ) %>
  588.         </td>
  589.             <%
  590. if( FALSE = g_bSecureConnection ) then
  591. %>
  592.                 <script language="JavaScript">
  593.                 <!--
  594.                     ShowHideSecureWarning( "img/Not_secure_32.gif" );
  595.                 -->
  596.                 </script>
  597.             <%
  598. end if
  599. %>
  600.     </tr>
  601. </table>
  602. <%
  603. End Sub
  604.  
  605. '/////////////////////////////////////////////////////////////////////////////////////////
  606. Sub DrawPropPageBanner( strPropPageTitle )
  607. %>
  608. <table valign="top" width="100%" class="pluginheader" bgcolor="#ffffff" height="90" cellspacing="0" cellpadding="0" border="0">
  609. <tr>
  610.     <td colspan="2" class="pluginheadertext" nowrap>
  611.         <%= Server.HTMLEncode( g_strServerName ) %>
  612.         <% if ( "" <> g_strPubPointName ) and ( 0 < Len( g_strPubPointName ) ) then Response.Write( " (" & Server.HTMLEncode( ConvertPPName( g_strPubPointName, -1 ) ) ) & ")" end if %>
  613.     </td>
  614. </tr>
  615. <tr valign="top">
  616.     <td class="pluginheadertext" nowrap>
  617.         <%= Server.HTMLEncode( strPropPageTitle ) %>
  618.     </td>
  619. </tr>
  620. </table>
  621.             <%
  622. if( FALSE = g_bSecureConnection ) then
  623. %>
  624.         <script language="JavaScript">
  625.         <!--
  626.             ShowHideSecureWarning( "img/Not_secure_32.gif" );
  627.         -->
  628.         </script>
  629.             <%
  630. end if
  631. %>
  632. <%
  633. End Sub
  634.  
  635.  
  636. '/////////////////////////////////////////////////////////////////////////////////////////
  637. Sub DrawCopyrightInfo()
  638. %><table valign="bottom" width="100%" cellspacing="0" cellpadding="0" border="0">
  639. <tr>
  640.     <td>
  641.          <!-- Copyright (C) Microsoft Corporation. All rights reserved. -->
  642.     </td>
  643. </tr>
  644. </table><%
  645. End Sub %>
  646.